home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL42.LIT < prev    next >
Text File  |  1990-01-13  |  974b  |  21 lines
  1. *[FOSSIL42.LIT]***************************************************************
  2. * Description: Removes FOSSIL support.                                       *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB4.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files:                                                          *
  7. ******************************************************************************
  8. 59600 SUB SetEcho (NewEcho$) STATIC
  9.       IF NewEcho$ = PrevEcho$ THEN _
  10.          EXIT SUB
  11.       IF NewEcho$ = "R" THEN _
  12.          ZRemoteEcho = (NOT ZLocalUser) _
  13.       ELSE ZRemoteEcho = ZFalse
  14.       IF ZLocalUser THEN _
  15.          GOTO 59602
  16.       IF NewEcho$ = "I" THEN _
  17.          PRINT #3,ZHostEchoOn$; : _
  18.                GOTO 59602
  19.       IF PrevEcho$ = "I" THEN _
  20.          PRINT #3,ZHostEchoOff$;
  21.